﻿Public Class Blip
    Inherits GenericCharacter

    Public Sub New(ByVal count As Integer, ByVal startPoint As GdiGaming.Vector2)
        Dim sprite As New GdiGaming.Sprite
        sprite.Name = "CharacterBlip"
        sprite.SpriteSheetName = "Blip"
        sprite.SetFrameBounds(New Rectangle(0, 0, 16, 16))
        Sprites.Add(sprite)
        CollisionRadius = 6
        ZOrder = 1
        Name = "Character" & count.ToString
        ProcessInput = True
        Position = startPoint
    End Sub
End Class
